Packages

library(readr)
library(dplyr)
library(ggplot2)
library(plotly)
Warning: package ‘plotly’ was built under R version 4.0.5
Attaching package: ‘plotly’

The following object is masked from ‘package:ggplot2’:

    last_plot

The following object is masked from ‘package:stats’:

    filter

The following object is masked from ‘package:graphics’:

    layout

load data

wrangle data

viz data

dv1 <- ggplot(edit_x35) +
 aes(x = primary_disease, fill = lineage) +
 geom_bar() +
 scale_fill_hue(direction = 1) +
 coord_flip() +
 theme_classic()

ggplotly(dv1) 
LS0tCnRpdGxlOiAiTmlrcyBXb3JrZmxvdyA4IDIzIDIwMjIiCm91dHB1dDogaHRtbF9ub3RlYm9vawotLS0KCgpQYWNrYWdlcwpgYGB7cn0KbGlicmFyeShyZWFkcikKbGlicmFyeShkcGx5cikKbGlicmFyeShnZ3Bsb3QyKQpsaWJyYXJ5KHBsb3RseSkKYGBgCgpsb2FkIGRhdGEKYGBge3J9ClgzNTAyMDkwMyA8LSByZWFkcjo6cmVhZF9jc3YoImh0dHBzOi8vbmRvd25sb2FkZXIuZmlnc2hhcmUuY29tL2ZpbGVzLzM1MDIwOTAzIikKCmBgYAoKd3JhbmdsZSBkYXRhCmBgYHtyfQoKZWRpdF94MzUgPC0gWDM1MDIwOTAzICU+JQogZmlsdGVyKHNleCAlaW4lICJGZW1hbGUiIHwgaXMubmEoc2V4KSkgJT4lCiBmaWx0ZXIoIShsaW5lYWdlICVpbiUgInVua25vd24iKSkKCmBgYAoKdml6IGRhdGEKYGBge3J9CgpkdjEgPC0gZ2dwbG90KGVkaXRfeDM1KSArCiBhZXMoeCA9IHByaW1hcnlfZGlzZWFzZSwgZmlsbCA9IGxpbmVhZ2UpICsKIGdlb21fYmFyKCkgKwogc2NhbGVfZmlsbF9odWUoZGlyZWN0aW9uID0gMSkgKwogY29vcmRfZmxpcCgpICsKIHRoZW1lX2NsYXNzaWMoKQoKZ2dwbG90bHkoZHYxKSAKCmBgYAoK